# Untested code for demonstation purposes only

while($command = <IRC>) {
   last if /please leave, $botname/;

   bot_command($command);

}

sub bot_command {
    my $command = shift(@_);

    join_channel($command) if ($command =~ /join/);
    part_channel($command) if ($command =~ /part/);
    msg_user($command)     if ($command =~ /msg/);
    ....
    default($command);

}

sub join_channel { 
...

}

sub part_channel {
...
}

##</code><code>##

$remove = <REMOVE>;

##</code><code>##

Filehandle FILE opened only for output at C:\file.pl line 7.

##</code><code>##

open(REMOVE, "+>project.pjt") 

##</code><code>##

open(REMOVE, "+>>project.pjt")