Usage monitoring Perl script