#!/usr/bin/perl -w

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

print "$DBH\n";

sub retval { return $_[0] }

##</code><code>##

my $orr || print "or\n";
my $andd && print "and\n";