# Collection of code snippets by Arne Vajhøj 
# created to try various things (2003-now) 
open(F, "type.pl");
while($line = <F>) {
    print $line;
}
close(F);
