challenge-045/paulo-custodio/perl/ch-2.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#!/usr/bin/env perl

# Challenge 045
#
# TASK #2
# Source Dumper
# Write a script that dumps its own source code. For example, say, the script
# name is ch-2.pl then the following command should returns nothing.
#
# $ perl ch-2.pl | diff - ch-2.pl

use Modern::Perl;

@ARGV = ($0);
print <>;