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

open(FILE1,"testData.txt ")or die ("Unable to open the file.");