#!/usr/bin/perl -w

my $DBH ||= retval('1');

print "$DBH\n";

sub retval { return $_[0] }