Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use File::Basename qw(fileparse fileparse_set_fstype);
...
                print FO $_;
        }
}