knoppix@Microknoppix:~/perl/Monks$ head -99 d971401/*
==> d971401/File1.pm <==
package File1;

Some lines of
code here

my $t0 = [gettimeofday];
	my $time = tv_interval ( $t0, [gettimeofday]);
    my @timeData = localtime(time);
		$time= join(':', @timeData);
		if($time =~m#^(.*?)\:(\d+)\:(\d+).*?$#)
		{
			$time = $3 . ':' . $2 . ':' . $1;
		} 

more code here

1;

==> d971401/File2.pm <==
package File2;


Some lines of
code here

my $t0 = [gettimeofday];
	my $time = tv_interval ( $t0, [gettimeofday]);
    my @timeData = localtime(time);
		$time= join(':', @timeData);
		if($time =~m#^(.*?)\:(\d+)\:(\d+).*?$#)
		{
			$time = $3 . ':' . $2 . ':' . $1;
		} 

more code here

1;

==> d971401/File3.pm <==
package File3;

Some lines of
code here

my $t0 = [gettimeofday];
	my $time = tv_interval ( $t0, [gettimeofday]);
    my @timeData = localtime(time);
		$time= join(':', @timeData);
		if($time =~m#^(.*?)\:(\d+)\:(\d+).*?$#)
		{
			$time = $3 . ':' . $2 . ':' . $1;
		} 

more code here

1;

==> d971401/File4.pm <==
package File4;

Some lines of
code here

my $t0 = [gettimeofday];
	my $time = tv_interval ( $t0, [gettimeofday]);
    my @timeData = localtime(time);
		$time= join(':', @timeData);
		if($time =~m#^(.*?)\:(\d+)\:(\d+).*?$#)
		{
			$time = $3 . ':' . $2 . ':' . $1;
		} 

more code here

1;

==> d971401/File5.pm <==
package File5;

Some lines of
code here

my $t0 = [gettimeofday];
	my $time = tv_interval ( $t0, [gettimeofday]);
    my @timeData = localtime(time);
		$time= join(':', @timeData);
		if($time =~m#^(.*?)\:(\d+)\:(\d+).*?$#)
		{
			$time = $3 . ':' . $2 . ':' . $1;
		} 

more code here

1;
knoppix@Microknoppix:~/perl/Monks$