use strict;

my $Usage = <<ENDUSE;
Usage: $0 file_name link_name
  if link_name ends with "-s", it will be a symbolic link.
  otherwise, it will be created as a hard link.
ENDUSE

die $Usage unless ( @ARGV == 2 and -e $ARGV[0] );

if ( $ARGV[1] =~ /-s$/ ) {
    symlink $ARGV[0], $ARGV[1] or die "symlink failed: $!\n";
} else {
    link $ARGV[0], $ARGV[1] or die "link failed: $!\n";
}
print "$ARGV[1] is now installed as a link to $ARGV[0]\n";