Select Code to Download

#!/usr/bin/perl
use strict;
...
    my ($out) = $ssh->cmd($hostdata{$host}{cmdtorun});
    print "$out\n";
}

#!/usr/bin/perl -w
# This code fragment demonstrates how to send an SMS text message to
...
print "Sent\n";