in reply to CVS Version of a File

You definately need: 

use warnings;
use strict;

[download]

If your one line: 

my $Temp = "../dcheck.pl";

[download]

returns undef then without warnings your progam will silently fail yet still produce output.
s//----->\t/;$~="JAPH";s//\r<$~~/;{s|~$~-|-~$~|||s |-$~~|$~~-|||s,<$~~,<~$~,,s,~$~>,$~~>,, $|=1,select$,,$,,$,,1e-1;print;redo}

In Section Seekers of Perl Wisdom