Select Code to Download

my $data =`lpstat -o -v -d -p -l -D`;.

system("lpstat -v -d -p -l -D >junk.txt");
open RI,"<junk.txt" || die "Can't open junk.txt for reading:$!\n";
my $data = do { local $/; <RI> };