#!/usr/bin/perl -w

$ID="1234";

open(FILE,"<file.txt");
while(<FILE>) {
    print;
close(FILE);

exit 0;