package Foo::Bar;

sub process {
	my ($class, $file_name) = @_;

	my $sum = 0;

	open my $fh, $file_name;
	while (<$fh>) {
		chomp;
		$sum += $_;
	}
	close $fh;

	return $sum;
}

1;