Select Code to Download

#!/usr/bin/env perl
use warnings;
...
}
sub subtr { return shift - shift; }
sub foo { return 'foo'.shift }

#!/usr/bin/perl
use warnings;
...
    my $x = shift;
    return "foo$x";
}

#!/usr/bin/env perl
use warnings;
...
    }
    return @subs;
}

$ ./subdupes.pl one.pl two.pl
Potential Duplicates:
...
Potential Duplicates:
    sub subtr in file one.pl, line 11, col 1
    sub subtract in file two.pl, line 11, col 1