Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
                );
my $fileIn = $d->fselect( path => '/path/to/my/files/' );
say "Selected: $fileIn";
  2. or download this
    #!/usr/bin/perl
use strict;
...
chomp $fileIn; #because there's newline at the end of stdout

say "Selected: $fileIn";