#!perl

use strict;
use warnings;

open INFILE, '<', $0;

while (<INFILE>) {
	chomp;
	parser $_;
}

sub parser {
	print "Hello, world\n";
}
__END__