use strict;

sub file_name {
  die "incorrect number of parameters\n"
    unless @_ == 4;

  for each (0 .. $#_) {
    die "invalid parameter [$_]\n"
      unless defined $_[$_];

  $" = '';

  "I@_"'
}