my $file = './tcard.conf';
open(INFO, $file);
my @lines = <INFO>;
close(INFO);

print("The first line is >>$lines[0]<<\n");

my $url = $lines[0];