use strict;
use warnings;

sub parser;

open INFILE, '<', $0;

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

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

__END__