use strict;
my $a = foo() if 0;