#!/usr/bin/perl

use strict;

print "Hello, world!\n";

print "This is a test!\n";

foreach my $i (1..7) {
  # hmm...
  print "$i\n";
}

print 'interesting!\n';

if($ARGV[0] eq 'BOOGITY') {
  print "BOOGITY!\n";
  $x += 1;
}