system("SQL", "<", "calfile.txt");

##</code><code>##

open IN, "<calfile.txt" or die "Aaargh: $!\n";
open OUT, "|SQL" or die "Ooops: $!\n";
print OUT, <IN>;
close OUT;
close IN;