#!/usr/bin/perl

use strict;
use warnings;
use POSIX qw /strftime/;

my $time = 1268901385.523;
print strftime ("%a, %d %b %Y %H:%M:%S %Z", gmtime $time), "\n";