#!/usr/bin/perl
use strict;
use warnings;
$" = ", ";

print "First: list context\n";
my @a = do '/tmp/prova1.pl';
print "array \@a = (@a)\n\n";

print "Second: void context\n";
do '/tmp/prova1.pl';

print "\nThird: scalar context\n";
my $c = do '/tmp/prova1.pl';
print "scalar \$c = $c\n";