22 lines
436 B
Perl
Executable File
22 lines
436 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")
|