#!/usr/bin/perl -p

if (/^/ ... !/^/) {
    ($package) = /(.*).pm,/;
    $package =~ s|/|::|g;
}

s/(\x7F)sub\s+(\w+)(\([^)]*\))?/$1${package}::$2/;