#set the command line to accept a filename. my $ret = GetOptions ("u|updated:s", "x|XMLfile:s", "e|XLSfile:s"); my $update = $opt_u || die "Usage: $0 -u update_ID\n"; my $xmllocation = $opt_x || print ".xml report will be stored where the cxx is.\nuse -x location to choose a different location\n"; my $xlslocation = $opt_e || print ".xls sheet will be stored under $tempDir.\nuse -e location to choose a different location\n"; sub checkOption { if ( $xmllocation ne "" ) { system (qq(cp /nbsssbs/$subDir6/src/$dummyforexcel $xmllocation)); } if ( $xlslocation ne "" ) { system (qq(cp $tempDir/$dummyforexcel.xls $xlslocation)); } } # check the user option for saving in different location checkOption(); } #### cp: cannot stat `/nbs/ppl/src/erls.cxx': No such file or directory cp: cannot stat `d:\\Profiles\\sara\\LOCALS~1\\Temp/erls.cxx.xml.xls': N o such file or directory