Select Code to Download

#!/usr/bin/perl
# line 2 array.pl 
@ary = $ARGV[0] eq '-n'? (10..15) : (a..f);
print "@ary\n";

#!/usr/bin/perl
# line 2 script hash.pl
...
    quux => 0,
);
print "$_ $hash{$_}\n" for sort keys %hash;

#!/bin/bash
# script example.sh
...
do
    echo string: $key, number: $value
done

bash$ ./example.sh
10 is a
...
string: bar, number: 1000
string: foo, number: 42
string: quux, number: 0