sub called {
    my $caller = (caller)[0];
    my $fh = eval '\*'.$caller.'::DATA';
    my $data = <$fh>;
    print "read: $data\n";
}