open (F, $file) or die "cannot open file";
    while (<F>){
        print $_;
    }
    close F;