#!/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;