use File::Touch; @file_list = ('one.txt','../two.doc'); $count = touch(@file_list); $reference_file = '/etc/passwd'; $touch_obj = File::Touch->new( reference => $reference_file, no_create => 1 ); @file_list = ('one.txt','../two.doc'); $count = $touch_obj->touch(@file_list);