Select Code to Download

push @results_renamed,
    {
...
        mtime    => stat($_)->mtime(),
        bytes    => stat($_)->size(),
    };

@results_renamed
    = sort { $a->{mtime} <=> $b->{mtime} } @results_renamed;

my @temp;
my $post = sub {
    push @temp, { filename => $_, mtime => stat($_)->mtime } if /USB/
};
find( $post, 'c:/test' );

sub find_usb {
    my @temp;
...
    find( $post, 'c:/test' );
    return @temp;
}