my $file = $ARGV[0] || die "Synopsys: $0 <filename>" ;
 print "This is the filename to be processed: $file\n";