#!/usr/bin/perl

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

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

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