Help for this page

Select Code to Download

Select or download this

use Getopt::Std;

...
        my $file = $opts{f};
        print "$file\n";
}