# Interval to change at if we want $mode = "running"
    my $interval = $ARGV[0];

    # Change the mode if we have been passed an interval
    $mode = "running" if ($interval);

##</code><code>##

my $interval = 0;
if ( @ARGV ) {
    ( $interval ) = ( $ARGV[0] =~ /(\d+)/ )
        or die "Usage: $0 [m]\n m: number of minutes between color changes\n";
}
$mode = "running" if ( $interval );