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 );