Or just give them their full names...:

#!/usr/local/bin/perl
use strict;

$::e && $main::f && print "wabbit";
[download]

for example.