#!/usr/bin/perl -w
# make 8080 the default port
my $port = qx{/usr/bin/perl get_port.pl} || 8080;
print $port;
my $url = "http://localhost:$port/cds/ws/CDS";
print "n$urln";

Can't open perl script "get_port.pl": No such file or directory
8080
http://localhost:8080/cds/ws/CDS