@rem = ' This is a perl script for NT.
@echo off
@ccperl "%~f0" %1
@goto endofperl
@rem ';

# quote for spaces
if ($ARGV[0]=~/\s/)
{
  $ARGV[0]=~s/(.*)\@\@/\"\1\"\@\@/;
}

$ARGV[0]=~/(.*)\@\@/;
`cleardlg \/diffother $1 $ARGV[0]`;

__END__
:endofperl