Select Code to Download

#!/usr/bin/env perl 

while (<>) {print}

foo
bar
nose
cuke