22 lines
438 B
Perl
Executable File
22 lines
438 B
Perl
Executable File
#!/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")
|