I tried this and got it working in just three lines:
open (my $sqlldr, "|sqlldr usr/pass\@db control=sbteststream.ctl log=sb.log bad=sb.bad direct=true") || die "Cannot open sqlldr\n";
print $sqlldr "16107364Ø454370Ø60Ø10eb2b53ea80d0b63e72d8a63e6e1b75Ø3800Ø\n";
close($sqlldr);