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

print "type hw to print hello world script!\n"; #3, newline(s) missing

my $cmd = <STDIN>; #4 STDIN

if ( $cmd eq "hw" ) #5,6,7 $cmd, "=" should be "==" or "eq", "hw" must be quoted
{
print "Hello, world\n"; #3, newline(s) missing
}

else {

print "sorry I didn't understand the command.\n"; #8,3 "Print" -> "print", newline(s) missing
}