Perl Simple Tast Update