#!/usr/bin/perl -w
use strict;
use Carp;
my $foo;
my $fum="testing";
print "$fum $foo\n";