#!/usr/bin/perl

use List::Compare;

my $hostname = $ARGV[0];

my @hostFiles = qw/filecheck.pl hostscript.pl awesomeness.txt/;
my @output =`ssh $hostname "cd Desktop; ls -a"`;


$lc = List::Compare->new(\@hostFiles, \@output);
@Lonly = $lc->get_unique;
print @Lonly;

##</code><code>##

Password:


awesomeness.txt filecheck.pl hostscript.pl

##</code><code>##


awesomeness.txt filecheck.pl hostscript.pl

.
 ..
 .DS_Store
 .localized
 PERL TESTS
 compare.pl
 greptest.pl
 hostfilecheck.pl
 hostscript.pl