#!/usr/local/bin/perl

use b;
MAIN: {
my $value;
b::test($value);
print "\nVALUE = $value\n";
}