#!/usr/bin/perl

use strict;
use warnings;

my $fortune = `/sw/bin/fortune -s`;

$fortune =~ s/"/\\"/g;

open(OSASCRIPT, "| /usr/bin/osascript");

print OSASCRIPT <<EOF;
tell application "iChat"
        set status message to "$fortune"
end tell
EOF

close(OSASCRIPT);