Select Code to Download

#!/usr/bin/perl -w

...

my $scr = "sspipes.scr";
system("$scr/s");

#!/usr/bin/perl -w

...
my $scr = $ss[rand @ss];

system("$scr/s");