use File::Basename;

my @suffixlist = qw( .txt );
my ($name, $path, $suffix) = fileparse($fullname,@suffixlist);

my $neu = $name . get_time() . $suffix;