OpenWritings.net

#!/usr/local/bin/perl
 
# Example showing how to define different variables.
# ==================================================
 
my $someString="Hello World!";  # Variable holding a string.
my $someNumber=3.1415;          # Variable holding a number.
my @someArray =("Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday");
 
# Output all the variables defined.
$someNumber = $someNumber*2;
print "$someString\n";
print "$someNumber\n";
print "@someArray\n";