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";

##</code><code>##

my $Usage = <<ENDUSE;
Usage: $0 [-s] file_name link_name
 blah blah...
ENDUSE

my $ltype = ( @ARGV and $ARGV[0] eq '-s' ) ? shift : '';

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

if ( $ltype eq '-s' ) {
    symlink ...
} else {
    link ...
}