$file = 'wolf';
  $ext = 'pl';
  $file = join '.' => ( $file, $ext);