# perl -wT
# ^ whatever executable's appropriate!
use strict;

##</code><code>##

  if (param) 
  {
    $user_name = em(param('name'));
    &file_creation($user_name);
  }