#!/usr/bin/perl -w
use strict;

print "Hello World!\n";
my $a;
$a=5;
my $b=$a/2;
print "$b\n";
my @array;
my $i;
for($i=0;$i<=10;$i++)
{
    $array[$i]=$i+1;
    print "$array[$i]\n";
}
print "Number of elements in array is $#array\n";
my $name="John";
print "$name wrote this demo\n";
system "ls";
my $computer;
$computer=`hostname`;
chomp($computer);
print "This is running on $computer\n";
my $JPG=glob "*.jpg";

open FILEHANDLE, ">test.txt" or die "Cannot create file: $!";
select FILEHANDLE;
print "Hello\n";
print "@array\n";
close FILEHANDLE;

select STDOUT;