path: root/challenge-045/ruben-westerberg/perl/ch-2.pl

#!/usr/bin/env perl
use strict;
use warnings;
open my $f,"<",$0;
print $_ for ( <$f> );