#!/usr/bin/perl

sub launch_s3270
{

# Some magic to launch s3270 as a child process and retain the ability to write to it

}

sub connect_3270
{

print $s3270 "connect(L:ssl3270.myhost.org:2023)";

}