<form name="Show">
X <input type="text" name="MouseX" value="0" size="4"><br>
Y <input type="text" name="MouseY" value="0" size="4"><br>
</form>

<script language="JavaScript1.2">
<!-- Original: CodeLifter.com (support@codelifter.com) -->
<!-- Begin
var IE = document.all?true:false;
if (!IE) document.captureEvents(Event.MOUSEMOVE)
document.onmousemove = getMouseXY;
var tempX = 0;
var tempY = 0;
function getMouseXY(e) {
if (IE) { // grab the x-y pos.s if browser is IE
tempX = event.clientX + document.body.scrollLeft;
tempY = event.clientY + document.body.scrollTop;
}
else { // grab the x-y pos.s if browser is NS
tempX = e.pageX;
tempY = e.pageY;
} 
if (tempX < 0){tempX = 0;}
if (tempY < 0){tempY = 0;} 
document.Show.MouseX.value = tempX;
document.Show.MouseY.value = tempY;
return true;
}
// End -->
</script>

#!/usr/bin/perl -w
# Удаление повторяющихся строк
# by [dei]
############ Config #############
$file = 'acs.txt';
#############################

open(F1,"< $file");

@lines = <F1>;
close F1;

for($i=0;$i<@lines;$i++) {
    for($i2=$i+1;$i2<@lines;$i2++) {
        if($lines[$i] eq $lines[$i2]) { splice @lines, $i2, 1; }
    }
}

open(F2,"> $file");
print F2 join('',@lines);
close F2;

#!/usr/bin/perl -w
# Разбивка файла на мелкие
# by [dei]
############ Config #############
$file = 'groups.txt';
$newname = 'groups.txt';#к имени прибавляется порядковый номер
$count = 10;
#############################
use POSIX qw(ceil);

open(FF,"< $file");

@lines = <FF>;
close FF;

$x = ceil(($#lines+1)/$count);

for($i=1;$i<=$count;$i++){
    $newname =~ s/([0-9]*|)\.txt/$i\.txt/;
    
    $f = F.$i;
    open($f,"> $newname");
    
    $n1 = $i * $x - $x;
    if($i==$count) { $n2 = $#lines+1; }
    else { $n2 = $i * $x; }
    
    for($i2=$n1;$i2<$n2;$i2++) {
        print $f $lines[$i2];
    }
}