use Storable;
do 'file1';
store $VAR1, 'file2';