#!/usr/bin/perl
use strict;
use warnings;

BEGIN { print "Begin code$/Get initialization info from user$/";  }