my($package, $file, $line) = caller();
sprintf "file=%s line=%s param=%d\n", 
        $file, $line, $param;