Select Code to Download

#!/usr/bin/perl
use strict;
...
    print $prefix, @_;
}
print_prefix "alpha ", "beta ", "gamma\n";

print unshift @_, $prefix;