windows-server-2003/ds/netapi/svcimgs/ntrepl/test/remdup.cmd

@rem = '
@goto endofperl
';

$USAGE = "
Usage:  $0  InputFiles

";

$save = "";

while (<>) {

    if ($save ne $_) {
        $save = $_;
        print;
    }

}


__END__
:endofperl
@perl %~dpn0.cmd %*