Help for this page

Select Code to Download

Select or download this

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

Select or download this

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