#!/usr/local/env Perl5.12
### filename:Hello.pl

use strict;
use File::Slurp;

my $string;

open (my $QBF, "<QBF.txt");

$string = read_file($QBF);

print "\n";
print $string + "\n"; # doesn't print anything. (or prints "0")
print "\n";