#!/usr/bin/perl # to calculate how much you get paid to do something use strict; my $holidays = 33; # number of days off, include public holidays my $wage = none of your business; # annual wage my $hours = 7; # hours worked per day my $days = 365-52*2-$holidays; my $ps = $wage/($days*$hours*3600); # per second wage my $start = time(); <>; # wait for a carriage return printf("%2.2f\n",$ps*(time()-$start)); exit 0