Select Code to Download

use strict;
use warnings;

...
{
  close $textfile;
  }

use strict;
use warnings;
print "What is the conference hexidecimal name?\nInput Name:";
...
{
  close $textfile;
  }

print "What is the Conference IDX?";
my $num = <>;
chomp ($num);
exit unless defined $num;
$num = oct($num) if $num =~ /^0/; 
printf = ("%x\n", $num) ;