#! perl -w

use strict;
use diagnostics;

use T;

sub foo
{
    my $x;
    print $x;
}

foo();

print "\n\ndone.\n\n";