title: Can't use an undefined value as a symbol reference on line 12
body: <p>So I am trying to teach myself perl as a new language.  I find the best way to learn a new language is to set myself a project.  This project is a text game.  I have just started this evening.  I need to take input from the user and then write it to a file.  As I am going to be doing this over and over again, I thought it would be best to put the code in subroutines, as you can see below.</p>
  
  <p>The only problem is that I keep getting the following error:
      Can't use an undefined value as a symbol reference at book1.pl line 12, &lt;> line 2.</p>
  
  <p>Any help would be greatly appreciated :)</p>
  
  <pre><code>#!/usr/bin/perl
  
  use 5.010;
  use strict;
  use warnings;
  
  my $filename = 'save.txt';
  sub open_save{
      open(my $fh, '&gt;', $filename) or die "Could not open file '$filename' $!";
  }
  sub close_save{
      close my $fh;
  }
  print "Welcome to the 40K universe\nWhat is your first name?";
  my $first_name = &lt;&gt;;
  print"What is your surname?";
  my $surname = &lt;&gt;;
  my $name = $first_name . $surname;
  open_save();
  print "$name";
  close_save();
  </code></pre>