Select Code to Download

use strict;
use warnings;
...

    return $in == @$target ? 'Yes' : 'No';
}

use strict;
use warnings;
...
my @target = @ARGV ? @ARGV : qw(Sun Moon);
my @in = intersect @target, @source;
print @in == @target ? 'Yes' : 'No';