#!/usr/bin/perl
use LWP::Simple;
my $smiles = <STDIN>;
my $url = 'http://pubchem.ncbi.nlm.nih.gov/rest/pug/compound/smiles/';  
my $finalurl = get "$url$smiles/property/MolecularFormula,MolecularWeight,TPSA/CSV/";
print $finalurl;