#! /usr/bin/perl
#use strict;
#
# A quick tutorial:
# To check the syntax of this script uncomment the 'use strict' then
# click on Tools/Check or click on the check syntax button
#
# To debug this script click on Tools/Debug or click on the debug button,
# then click on the toolbar icons to step through the script.
#
# To run this script click on Tools/Run or click the Run button
#
print "This is the sample.pl script\n";
$foo = "abc";
my @bar = ("a", "b", "c");
print $foo;

my $i;
for ($i = 0; $i < 2; $i++) {
 print "i = $i\n";
}
sleep(1);
