#!/usr/bin/perl 

$xtlsstr = "xtlsstr";
open(XTL, "$xtlsstr");
print XTL "1ax8.pdb";