#!/usr/bin/perl -w
use strict;
# This is file2

print "Before: ";
# Run the first script
do "file1";

system "/usr/bin/perl", qw{-i -wpe s/(\$error\s*=\s*)\d+/${1}20/ file1};

print "After: ";
# Run the first script
do "file1";