#!/usr/bin/perl

use strict;
use warnings;


my @list;

print "\nPlease enter the name of the file you would like to rename : ";
chomp (my $name = <STDIN>);
print "\nPlease enter the name/location you would like the file changed to: ";
chomp (my $final = <STDIN>);
print "\nThe name you entered is $name and the output desired is $final.";
if ($final =~ /(\-s*)/) {
   symlink $name, $final or die "\nCouldn't create symlink!";
   @list = glob "$name, $final";
} else {
   link $name, $final or die "\nCouldn't create link!";
   @list = glob "$name, $final";
}
foreach (@list) {
  print "\nYou've succesfullly linked or symlinked $_ to";
 }
print "\nYou're Done\n\n";

##</code><code>##

syntax error at ./ex4-13 line 14, near "$final ~"
BEGIN not safe after errors--compilation aborted at ./ex4-13 line 16.