#!usr/bin/perl
my $string  = "export AP_IU_NUM = 41";
open(FD, ">>/users/smisra/test4.pl");
print FD ($string);
close(FD)