sub remote_script {
    my ($mode) = @_;
    
    if ($mode eq "test") {
        return '
            $|=1;
            print "READY\n";
            while (<STDIN>) {
                   chomp;
                   my $found = glob($_);
                   print "$found\n";
            }
        ';
    }
}