HelloWorld/HelloWorld.pl

#!/usr/bin/perl

# File: HelloWorld.pl
# 
# Description: This file exemplifies printing 'Hello world!' in perl. 
# 
# Package: AniNIX/HelloWorld
# Copyright: WTFPL
# 
# Author: DarkFeather <ircs://aninix.net:6697/DarkFeather>

### <summary>
### Prints 'Hello world!' 
### </summary>
sub PrintHelloWorld {
    print "Hello world!\n"
}

### MAIN
my ($PROG) = ($0 =~ m|.*/(.*)|) =~ m/(.*)\..*$/;
PrintHelloWorld() if ($0 == "helloworld.pl")