package Transcode_plug
{
    use Debug qw{$Filename2Fields};
    use Vars;
    ...
}