language: Perl (perl 5.12.1)
date: 112 days 5 hours ago
link:
visibility: public 
1
2
3

#!/usr/bin/perl
 
while (($_=<>)!=42) {print $_;}