Inline

某所にあったのを貼る。

use strict;
use Inline
    Java => 'STUDY',
    STUDY => [qw(
        java.lang.System
        java.util.Date
        java.text.SimpleDateFormat
            )];

    my $date = java::util::Date->new(java::lang::System->currentTimeMillis());
    my $date_format = java::text::SimpleDateFormat->new('yyyy/MM/dd');
    print $date_format->format($date) ."\n"

とりあえずおせえと思う。
うくく。