#!/usr/bin/perl

use lib '../lib';
use MooseX::Declare;

class Fish {
  has 'name' => (is => 'rw');
}

sub main {
  my $age = 5;
  my $fish = Fish->new( name => 'Frank' );
  my $gar = undef;
  my $pft = [];
  my @blah = ();
  my %dah = (a => 1, b => 2);
  my $r = qr/blah/;
  my $e = sub { $_ + 1 };
  use CGI::Inspect;
  inspect();
  print "My name is " . $fish->name . "! age $age";
  $gar = 3;
  push @$pft, 3;
  push @blah, 3;
  $dah{c} = 23;
  print "hmm" if "blah" =~ $r;
}

print "Content-type: text/html\n\n";

main();