clrh

package A;

use Bou;
use Modern::Perl;

sub truc {
  warn "truc";
  machin;
  warn "end";
}

clrh

Going to read '/home/claire/.cpan/Metadata'
  Database was generated on Wed, 16 May 2012 11:43:03 GMT
CPAN: Time::HiRes loaded ok (v1.9719)
Fetching with LWP:
  ftp://ftp.inria.fr/pub/CPAN/authors/01mailrc.txt.gz
Going to read '/home/claire/.cpan/source/authors/01mailrc.txt.gz'
............................................................................DONE
Fetching with LWP:
  ftp://ftp.inria.fr/pub/CPAN/modules/02packages.details.txt.gz
Going to read '/home/claire/.cpan/source/modules/02packages.details.txt.gz'

clrh

#!/usr/bin/perl -w

# Prints out the the most recent numbers for each status from: 
# http://bugs.koha-community.org/cgi-bin/progress.pl?type=json
# 
# Meant to be run hourly from cron during Global Bug Squashing Days: 
# @hourly perl /path/to/kohastatus.pl >> /path/to/hourlynumbers.txt
# 
# Based on http://beerpla.net/2008/03/27/parsing-json-in-perl-by-example-southparkstudioscom-south-park-episodes/

clrh

lorem ipsum blabla