#!/usr/local/bin/perl
use strict;
do "script1.pl";
do "script2.pl"; 

print $a;