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

my $error = 10;
print "$error.\n";