paveljurca · November 23, 2017 07:19
diff --git a/stopwatch.pl b/stopwatch.pl
 #!/usr/bin/perl
 use strict;
 use warnings;

 # http://stackoverflow.com/questions/30914955/a-perl-one-liner-into-a-bash-function
 for (reverse 0..(shift)*60-1) {!system q!clear! and open(FIGLET,q!|figlet -f banner -c!) and printf FIGLET "%2d'%02d",$_/60,$_%60;sleep 1}
	#!/usr/bin/perl
	use strict;
	use warnings;

	# http://stackoverflow.com/questions/30914955/a-perl-one-liner-into-a-bash-function
	for (reverse 0..(shift)*60-1) {!system q!clear! and open(FIGLET,q!\|figlet -f banner -c!) and printf FIGLET "%2d'%02d",$_/60,$_%60;sleep 1}