I don't have a clue what StarTeam is, and I'm not familiar at all with Win32::OLE, but the first thing I noticed was that you use the same variable name for two different things -- and both are declared with "my":

my $STServer = defined($ARGV[0]) ? $ARGV[0] : 'localhost';
...
my $STServer = $STServerFactory->Create($STServer, $STPort);
[download]

How about changing the first one to "my $STHost" or something like that -- even though it probably won't fix the problem, it will make your code easier to understand.

You might also want to check the Win32::OLE man page, to see whether it provides anything in terms of diagnostic messages when things don't work as intended.

When you say "None of this works", you aren't telling us enough. In what particular way does it not work? What exactly does it do? If you're not getting any messages or other behavior that would answer these questions, then you need to add some more verbose reporting at various points in the code, and/or you need to step through it with the perl debugger, to see what's going on as the script executes.