programming-examples/perl/SystemFunction/Shell command- cat file.pl

use Shell;

$text = cat("file.txt");

print $text;