HelloWorld/HelloWorld.pl

22 lines
438 B
Perl
Executable File

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