#!/usr/bin/perl -w

use strict;
use warnings;

use lib '.';
use test;

my $l = 200;
my $ld = 'foo';

#line $l $ld ;
test::test();

exit;

##</code><code>##

package test;
use strict;
use warnings;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw();

sub test {    
    my @caller = caller();
    
    print "@caller\n";
    
    print "DBGZ" if 0;
    
}

1;

##</code><code>##

$ perl test.pl
main test.pl 13

##</code><code>##

$ perl test.pl
main foo 200

##</code><code>##

#line $lineno "$filename (autosplit into $path)"