Small socat wrapper for my two most common usecases

sok

#!/usr/bin/env perl

use 5.12.0;
use warnings;

=head1 SYNOPSIS

    sok [-PORT [SOCAT_FLAGS...]]
    sok HOST [PORT [SOCAT_FLAGS...]]

=over 4

=item C<sok [-PORT]>

listens on that TCP port (default 1234).

=item C<sok HOST [PORT]>

connects to that host on that TCP port (default 1234).

=back

=cut

my ($l, $host, $port);

if (not @ARGV) {
    $l    = 1;
    $port = 1234
} elsif ($ARGV[0] =~ /^-(\d+)?$/) {
    $l    = 1;
    $port = $1 // 1234;
    shift;
} else {
    $host = shift;
    $port = shift // 1234;
}

if ($l) {
    exec "socat", @ARGV, "TCP-LISTEN:$port", "-"
} else {
    exec "socat", @ARGV, "-", "TCP:$host:$port"
}