use File::Slurp;

$F='Add Some Text at last';

append_file( 'd:\swift\file.tmp', $F ) ;