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

warn "Loading 1";

sub subroutine {
    my $file = (caller)[1];
    $file =~ s=.*/==;
    warn 'subroutine defined in ', $file;
}

subroutine();

1;