#!/usr/bin/perl

use strict;
use lib 'lib';
use Carp::REPL::HTTP;

my $x = 5;

sub print_header {
  print "Content-type: text/html\n\n";
}

sub print_hello {
  my $y = 'hiya';
  print "Hello...\n";
  Carp::REPL::HTTP::inspect();
}

print_header();
print_hello();

print "Goodbye... $x\n";