Select Code to Download

#!/usr/bin/perl
use strict;
...
foreach my $server qw( oldserver newserver strangeserver ) {
    system "pscp workscript.pl user\@$server:/tmp/workscript.pl";
}

    system "plink user\@$server perl /tmp/workscript.pl -foo -bar -kab
+oom";