saiftynet

#!/usr/bin/env perl

####       Pure Perl implementation of a terminal calendar app            ###
#                                                                           #
#  * by default produce a monthly calendar for current month                #
#  * if passed a number less than 12 produces a calendar for                #
#    that month in current year                                             #
#  * if passed two numbers and first is less than 12 then prints            #
#    corresponding month in that year                                       #
#  * if passed number greater than 12 prints the calendar for               #

saiftynet

#!/usr/bin/perl

no warnings 'utf8';
use strict;
use Image::Magick;
use Term::Size;
use Getopt::Long;
use Time::HiRes qw(gettimeofday tv_interval);

our ($cachehit,$cachemiss,$nocache,$filter);

saiftynet

#!/usr/env perl
use strict;use warnings;
my %config;
loadConfig();                               ##load config from __DATA__
foreach (sort keys %config){                
	print $_, "  =>  ",$config{$_},"\n__\n";# display config 
	print "Enter new Value for $_\n>>";     # offer to modify it
	chomp( $config{$_}=<>);                 # modify it
}
saveConfig();                               #save new config