#! /usr/bin/perl -w
use strict;
use warnings;

printf("%-60s", 'this is the first message...');
print STDOUT "done\n";

printf("%-60s", 'this is the second message of different length...');
print STDOUT "done\n";