open(File, "< d:\\swift\\file.tmp");
undef $/;
$F=<File>;
$F.='Add Some Text at last';
close (File);
open(File, "> d:\\swift\\file.tmp");
print File $F;
close (File);