#!perl.exe
use strict;
my $cmd = "perl.exe loretta.pl";
my @output = qx/$cmd/;
print @output;