opendir (...);
while ($file = readdir(...)) {
  unlink $file if $file =~ /\.(avi|mpeg|flv|jpg)$/;
}
closedir (...);

use CGI::Carp qw(fatalsToBrowser);
print "Content-Type: text/html\n\n";
use Net::OSCAR qw(:standard);
$uin="сюда я вписываю юин";
$password="Здесь пароль";
sub im_in {
	my($oscar, $sender, $message, $is_away) = @_;
	print "[AWAY] " if $is_away;
	$oscar->signoff;
}
$oscar = Net::OSCAR->new();
$oscar->set_callback_im_in(\&im_in);
$oscar->signon($uin, $password);
$oscar->send_im('Здесь юин получателя', 'fnjh');
while(1) {
$oscar->do_one_loop();
}

#!d:/Perl/bin/perl.exe
use DBI;
use CGI qw(:standart :cgi);
use CGI::cookie;
use CGI::Carp qw(fatalsToBrowser); 
######################################
print "Content-Type: text/html\n\n";
my $user = param('user');
my $pass = param('pass');
my $chanel = param('chanel');
######################################
my $sql = DBI->connect('DBI:mysql:database=chanel;host=localhost', 'логин', 'пароль') || die $sql::errstr; 
######################################
$result = $sql->prepare("SELECT users FROM chanel WHERE users='$user'");
$result->execute();
$result2 = $sql->prepare("SELECT pass FROM chanel WHERE pass='$pass'");
$result2->execute();
$result3 = $sql->prepare("SELECT chanel FROM chanel WHERE chanel='$chanel'");
$result3->execute();
######################################
my $result_user = $result->fetchrow_hashref();
my $result_pass = $result2->fetchrow_hashref();
my $result_chanel = $result3->fetchrow_hashref();
######################################
$cook = new CGI::Cookie("-name => admin_chanel,
    -value => 666,
    -expires => +3M,
    -domain => 10.33.195.248,
    -path => /cgi-bin
    -secure => 1
");
######################################
$user2=$result_user->{users};
$pass2=$result_pass->{pass};
$chanel2=$result_chanel->{chanel};
if(($user == $user2)&&($pass eq $pass2)&&($chanel eq $chanel2))
{print header(-cookie=>$cook);
}
else
{print "Prover`te dannii";
}
$sql->disconnect();

[Fri Dec 04 14:33:44 2009] [error] [client 10.33.195.248] [Fri Dec  4 14:33:44 2009] login.pl: DBI::db=HASH(0x1bca77c)->disconnect invalidates 3 active statement handles (either destroy statement handles or call finish on them before disconnecting) at D:/wamp/bin/apache/Apache2.2.11/cgi-bin/login.pl line 42., referer: http://10.33.195.248/page.php?3

use Math::BigInt;
my $n = Math::BigInt->new (1e+050);
print $n;