Select Code to Download

my $var = `property <dataid>`;
print "<td align="middle">$var</td>";

my $var;
open( PROG, "property $dataid |" );
...

# if there is binary data, there's more you'll need to do
# to make it presentable to a browser...