use warnings;
use strict;

require "file";

my @list = keys %main::;

for (@list){
    my $sub = "main::$_";
    print "$_\n" if defined &$sub;
}