Open files in the old way
In old version of perl (before 5.6) we could not use scalar variables as file handles so we used uppercase letters such as XYZ or INPUT, QQRQ or FILEHANDLE.
Also the function had only 2 parameters.
#!/usr/bin/perl use strict; use warnings; my $filename = "data.txt"; open(FH, ">$filename") or die; print FH "data"; close FH; open(FH, $filename) or die; my $line = <FH>; close FH;
Being global, difficult to pass as parameter to functions.