#!/usr/athena/bin/perl

use strict;

my $d = 30;

my $b;

$b = sprintf ("foo %08b", $d + 0);

print $b, "\n";