Linux scripts

Howdy /prog/, what scripts have you coded for your Linux system for general use, boot, etc?
I coded few simple scripts in Perl to test different things (if current IP address is identical to previous one is one of the useless among them), and will post sauce on more extensive scripts later on.
 

#!/usr/bin/perl -w

use strict;
use Yotsuba::Boards;
use Yotsuba::Related qw(maybe);

my $board=Yotsuba::Boards->new('a');
while(1){
    print $board->post(3781066,
        com => join "\n",map{"$_. ".(int rand 3?"Yes":(int rand 2?"No":maybe))}1..8,
    );
}