Select Code to Download

#!/usr/bin/perl
use warnings;
...

@a = (1, 2);
print  $proto->('@a 3 4');  # 1 2 3 4