use strict;
use warnings;

sub parser {
    print "Hello, world\n";
}
open INFILE, '<', $0;

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

__END__