Select Code to Download

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

my @fields = qw/foo bar baz/;
print join ('|', @fields[0,1]) . "\n";