print STDOUT "enter the name of the beacon\n";
my $beacon = <STDIN>;
...