#!/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")