#!/usr/local/bin/perl
# 
# $Header: getPwd.pl 02-oct-2005.20:24:46 pshroff Exp $
#
# getPwd.pl
# 
# Copyright (c) 2005, Oracle. All rights reserved.  
#
#    NAME
#      getPwd.pl - <one-line expansion of the name>
#
#    DESCRIPTION
#      <short description of component this file declares/defines>
#
#    NOTES
#      <other useful comments, qualifications, etc.>
#
#    MODIFIED   (MM/DD/YY)
#    pshroff     10/02/05 - pshroff_defimage_bugs
#    pshroff     09/28/05 - Creation
# 

my $temp_folder=$ARGV[0];
 
$command="cd $temp_folder;pwd";
system($command);
exit ($? >> 8);