Select Code to Download

#!/usr/bin/perl
use strict; use warnings;
...
    if ( path( $path )->is_file ) { ... }
}