print "Enter price to encrypt:";
chomp (my $input = <>);
my $micros = int($input * 1_000_000);
$plaintext = pack("N", $micros >> 32) . pack("N", $micros);