#!/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";

##</code><code>##

use File::Slurp;

open my $fh, "<", "QBF.txt" or die $!;
    local $/; # enable localized slurp mode
    my $content = <$fh>;
    close $fh;
print $content; # doesn't print anything. 


##</code><code>##

print"\n";
 open (my $QBF, "QBF.txt");
 while (<$QBF>) {
       print;
 }

##</code><code>##

use File::Slurp;

open my $fh, "<", "QBF.txt" or die $!;
    local $/; # enable localized slurp mode
    my $content = <$fh>;
    close $fh;
print $content; # prints now.