Here's the script in action:

irssi-notification

You need to save the script to "~/.irssi/scripts/autorun" or where ever your Irssi folder is located and load it by writing "/script load scripts/autorun/irssi-notification" inside Irssi.

#!/usr/bin/perl
#           irssi-notification.pl
#  Sun Jul 18 16:54:32 2010
#  Copyright  2010  jolttz
#  jolttz{ät}gmail{dot}com
#

use strict;
use Irssi;
use vars qw($VERSION %IRSSI);
Irssi::signal_add('print text', 'notify');

my $icon = "/usr/share/icons/gnome/scalable/actions/mail-message-new.svg"; # Path to icon file
my $duration = "4000"; # Duration in milliseconds

$VERSION = "0.02";
%IRSSI = (
    authors     => 'jolttz',
    contact     => 'jolttz{at}gmail[dot]com',
    name        => 'irssi-notification.pl',
);

sub notify {
    my ($dest, $text, $stripped) = @_;
    my $server = $dest->{server};

    return if (!$server || !($dest->{level} & MSGLEVEL_HILIGHT));

    system("notify-send -i ". $icon ." -t ". $duration ." '$dest->{target}' '$stripped'");
}

So here's the FTP upload script:

#!/usr/bin/perl
#           up2ftp.pl
#  Tue Apr 13 15:09:02 2010
#  Copyright  2010  jolttz
#  jolttz{ät}gmail{dot}com
#
use strict;
use File::Basename;
use Net::FTP;

# Configuration
my $ftp_adr = "loder.pri.ee"; # FTP address
my $ftp_usr = "username"; # FTP username
my $ftp_pwd = "password"; # Password
my $http_dir = "/public_html"; # Public directory
my $up_dir = "/uploads"; # Upload directory
# Config end

# If $link doesn't get a new value it displays this
my $link = "Error generating link!";

# Connect to host
my $ftp = Net::FTP->new($ftp_adr, Debug => 1)
    or die "Can't connect to hostname: $@";

# Identify
$ftp->login($ftp_usr, $ftp_pwd)
    or die "Can't login ", $ftp->message;

# Change directory to upload directory
$ftp->cwd($http_dir . $up_dir)
    or die "Can't change working directory ", $ftp->message;

# Set binary mode or uploaded images can't be displayed
$ftp->binary();

if ($ARGV[0] eq "-R") {
    my $dir = $ARGV[1];
    my @dirs = split(/\//, $dir);
    my $newdir = @dirs[@dirs-1];

    $ftp->mkdir($newdir); # Make new directory
    $ftp->cwd($newdir); 

    # Open local directory to upload
    opendir (DIR, $dir) || die "Error in opening dir $dir\n";
    while (my $file = readdir(DIR)) {
        # If exist upload every file in dir.
        if (!-d $file) {
            $ftp->put("$dir/$file");
        }
    }

    closedir(DIR);

    # Generate link
    $link = "http://" . $ftp_adr . $up_dir . "/" . $newdir;
} else {
    my $file = $ARGV[0];
    my @dirs = split(/\//, $file);
    my $filename = @dirs[@dirs-1];

    if (!-d $file) {
        $ftp->put($file);

        $link = "http://" . $ftp_adr . $up_dir . "/" . $filename;
    }
}

$ftp->quit();
print "\n" . $link . "\n";

Directory upload syntax:

jolttz@archbox ~ $ perl up2ftp.pl -R /dir/to\ the/dir

File upload syntax:

jolttz@archbox ~ $ perl up2ftp.pl myfile

These acts may sound very innocent but can actually be the main reason you get spam e-mails. There are 24/7 spiders/crawlers running around the web, searching for e-mails in the form of "you@mail.com" or more advanced crawlers even disguised e-mails like you[at]mail.com etc.
To pervent the crawlers adding your email to the "spam list" is to disguise it so it's easily understandable for human brain but can't be picked up by the crawlers. For example: you{at}mail{dot}com. Second solution would be adding an e-mail form so your e-mail won't be shown but people can still mail you. Also, if you have a company, stop having easily guessable e-mails like "info@yourcompany.com", instead use "information@yourcompany.com" or "cust-support@yourcompany.com" etc.

I wanted to know how easily the e-mails could be gathered so I wrote a small web crawler in Perl. It starts from some random page, gets all the e-mails on it and all the links refering to other pages/sites. Then it adds them to a MySQL database. After that it visits the links that are on the database next and does it all over again. It also filters the links that surely have no e-mails inside, like binary files (png, jpg, gif, exe, pdf etc.) and also pervents websites like google and yahoo that probably have no legit e-mails either. I ran it all night (about 10 hours). It went through 150000 websites and got over 5000 e-mails and I didn't even have to do anything. It's still far from advanced web crawlers but 5000+ e-mails shows how powerful it can be.

I'm not going to post the source here for your own good but if you e-mail me a really good reason, why I should give it to you, I might consider it .
If you knew all this, sorry for wasting your time but I hope I got someone thinking with this post.
tl;dr - gtfo.

Link: http://www.youtube.com/disco

#!/usr/bin/perl
#           avi2mp4.pl
#  Sun Feb 12 22:41:46 2010
#  Copyright  2010  jolttz
#  jolttz{ät}gmail{dot}com
#
use strict;

my $dirname = $ARGV[$0];
my ($width, $height, $size);
my $bitrate = 409600;

opendir(DIR, $dirname) or die "Can't open directory $dirname: $!";
while (defined(my $file = readdir(DIR))) {
	if ($file =~ m/(.+)\.avi/i) {

		# Get the aspect ratio
		open(P, "ffmpeg -i '$dirname/$file' 2>&1 |") or die "$!\n";
		while(

) {
		    if (/Video:.+ (\d+)x(\d+)/) {
		        $width = $1;
		        $height = $2;
		    }
		}
		close(P);
		die "Failed finding the aspect ratio.\n" unless defined $width;

		my $aspect = $width/$height;
		if (abs($aspect - 16/9) < 0.02) {
		    $size = "320x180";
		} elsif (abs($aspect - 4/3) < 0.02) {
		    $size = "320x240";
		} else {
		    die "Weird aspect ratio: ${width}x${height} = $aspect\n";
		}
		print $size;
    	print "Converting '$dirname/$file'...\n";
		exec("ffmpeg", "-i", $dirname. "/" .$file, "-b", $bitrate, "-s", $size, "-vcodec", "mpeg4", "-ab", 128, "-acodec", "libfaac", "-r", 25, $dirname. "/" .$1. ".mp4");
	}
}
closedir(DIR);

Syntax:

b22stard@b22s-desktop ~ $ perl avi2mp4.pl /dir/to/the/avis/

Enjoy

#!/usr/bin/perl
#           hilightlogger.pl
#  Tue Oct 13 10:21:03 2009
#  Copyright  2009  jolttz
#  jolttz{ät}gmail{dot}com
#  

# Visit http://loder.pri.ee/

use strict;
use warnings; 

my $away = 0; # Automatically on = 1
Xchat::register("Highlight Logger", "1.0", "Highlight Logger"); 

Xchat::hook_print("Channel Msg Hilight", "highlight");
Xchat::hook_print("Channel Action Hilight", "actionhighlight");
Xchat::hook_command("hilight_on", "hilight_on");
Xchat::hook_command("hilight_off", "hilight_off");

Xchat::print("Loaded: Perl Highlight logger script by B22stard.");

sub hilight_on {
    $away = 1;
    Xchat::print("Will now log Highlights");
    return 1;
}

sub hilight_off {
    $away = 0;
    Xchat::print("Will no longer log Highlights");
    return 1;
}

sub highlight {
    if ($away) {
        my $whom = $_[0][0];
        my $text = $_[0][1];
        my $chan = Xchat::get_info('channel');
        my $serv = Xchat::get_info('server'); 

        Xchat::command("query (HighLights)", "", "$serv");
        Xchat::print("$whom\t$text (7$chan, 7$serv)", "(HighLights)", "$serv");
        return Xchat::EAT_NONE;
    }
} 

sub actionhighlight {
    if ($away) {
        my $whom = $_[0][0];
        my $text = $_[0][1];
        my $chan = Xchat::get_info('channel');
        my $serv = Xchat::get_info('server'); 

        Xchat::command("query (HighLights)", "", "$serv");
        Xchat::print("$whom\t$text (7$chan, 7$serv)", "(HighLights)", "$serv");
        return Xchat::EAT_NONE;
    }
}

#!/usr/bin/perl
#           rhythmbox-np.pl
#  Sun Jan 24 03:53:01 2010
#  Copyright  2010  jolttz
#  jolttz{ät}gmail{dot}com
#

use strict;
use Irssi;

Irssi::command_bind('np', 'np');

sub np {
	my ($data, $server, $witem) = @_;

    my $title = `rhythmbox-client --print-playing-format %tt`;
    my $artist = `rhythmbox-client --print-playing-format %ta`;
	my $duration = `rhythmbox-client --print-playing-format %td`;
	my $elapsed = `rhythmbox-client --print-playing-format %te`;

	if (defined $title) {
		$witem->command("me is listening to: $artist - $title ($elapsed/$duration)")
	} else {
		Irssi::print("Rhythmbox is not playing.");
	}
}

#!/usr/bin/perl
#           clip2pastebin.pl
#  Sat Jan 23 09:17:38 2010
#  Copyright  2010  jolttz
#  jolttz{ät}gmail{dot}com
#
# Pastebins your clipboard text and replaces
# your clipboard with link to the post.
 

use strict;
use Clipboard;
use LWP::UserAgent;

my $data = Clipboard->paste;

my $poster = ''; # Name it'll be poster under, leave blank for Anonymous.
my $expiry = 'm'; # d = a day; m = a month; f = forever;

my $posturl = pastebin($data, $poster, $expiry);

Clipboard->copy($posturl);

sub pastebin {
    my ($data, $poster, $expiry) = @_;

    # For posting to private pastebin just replace the URL
    my $url = "http://pastebin.com/pastebin.php"; 

    my $ua = LWP::UserAgent->new(
        agent => "B22stard FTW"
    );

    my %args = (
                code2 => $data,
                remember => "0", # Don't remember the user
                paste => 'Send',
                poster => $poster,
                expiry => $expiry,
            );

    my $response = $ua->post( $url,
        CONTENT => \%args
    );

    return $response->header("Location"); # Return link
}

If you need any help using this script or programming Perl hop into #perlbar in irc.malvager.com.

#!/usr/bin/perl
#           md5login.pl
#  Fri Jan 22 23:08:10 2010
#  Copyright  2010  jolttz
#  jolttz{ät}gmail{dot}com
#
# Not very secure yet because the password file
# can be deleted and then it'll ask for a new password.
# You may need to modify a bit to run on Windows

use strict;
use Switch;
use Digest::MD5 qw(md5_hex);

if (-e ".md5.txt") { # Check if password file exists
    &askpw();
} else { # If doesn't exist set a new password
    &setpw();
}

sub askpw {
    print "Enter password: ";
    chomp(my $input = <STDIN>); # Take input

    my $md5 = md5_hex($input); # Crypt input
    open FILE, "<.md5.txt" or die $!; # Open password file
    chomp(my $md5pw = <FILE>); # Read password file

    if ($md5pw == $md5) { # Check if the md5s match
        system("clear");
        print "Password accepted!\n\n";
        &menu();
    } else {
        print "Invalid password!\n";
    }
} 

sub setpw {
    print "Choose password: ";
    chomp(my $input = <STDIN>);

    my $md5 = md5_hex($input);
    open FILE, ">>.md5.txt" or die $!;

    # Print password to file in md5
    print FILE $md5;
    close (FILE);

    system("clear");
    &askpw();
}

sub menu {
    print "Choose:\n";
    print " 1) to change password\n";
    print " 2) to exit\n";

    chomp(my $choice = <STDIN>);

    switch ($choice) {
        case 1  { &setpw(); }
        case 2  { exit; }
    }
}

It was found by Google security team, Microsoft failed again.

Switch to Linux you MS bastards