Need help with looping over subroutine and compiling 48x48 icon and 16x16 tray perltray pdk

[diamondsandperls]

With my current code below I am attempting to do the following.
I am stuck and really needing the code to loop back over subroutine ip

1. Get compiled perltray icon code to compile to loop every 30 minutes
2. have 48x48 desktop icon and same 16x16 systray icon compiled once I get the loop working
3. have log file append new entries to the top shifting older entries to the bottom of log file

Thanks to all who reply

#!perl

use strict;
use warnings;
use LWP::UserAgent;
use Time::Piece;
use Win32;
use PerlTray;

&ip;

sub ip {
my $t = localtime;
my $username = Win32::LoginName;
my $output_file = "C:/Users/$username/Dropbox/My_IP.txt";

my $ua = new LWP::UserAgent;
$ua->agent('Mozilla/5.0');

my $response = $ua->get("http://automation.whatismyip.com/n09230945.as
+p");
my $content = $response->content;

open(my $output_fh, '>>', $output_file)
    or die "You may not have dropbox installed failed to open - $outpu
+t_file $!";
    
print {$output_fh} "Your IP address is $content at $t\n";
close $output_fh;

}

sub Timer { sleep 10; \&ip }

sub PopupMenu {
    return [
        ['Refresh', \&ip],
        ['Exit', 'exit']
    ];
}

sub ToolTip {"MyIP_2_Dropbox"}

[zentara]

to loop every 30 minutes

Well I can't run your code because I'm on Linux, but looking at the PerlTray online docs, it says

SetTimer(ELAPSE, CALLBACK)

The SetTimer() function starts an asynchronous timer, which invokes th
+e CALLBACK every time ELAPSE milliseconds have expired. Calling SetTi
+mer() with ELAPSE set to 0 stops the timer for this specific CALLBACK
+. If CALLBACK is omitted, it will default to Timer().

The ELAPSE parameter can also be specified in "hh:mm:ss.xxxx" format. 
+Examples are:

  :15       => 15 seconds
  1:30      => 1 hour, 30 minutes
  4:30:15   => 4 hours, 30 minutes, 15 seconds
  2.500     => 2 seconds, 500 milliseconds

So you need a line of code something like:

 SetTimer ( 1800000, \&ip )  # 1800 seconds x 1000 for millisecs
 #or possibly 
 SetTimer ( 0:30, \&ip);

[Anonymous Monk]

I am stuck and really needing the code to loop back over subroutine ip

What does that mean?

[cavac]

have 48x48 desktop icon and same 16x16 systray icon compiled once I get the loop working

Do you mean something like PerlTray->Files->Add Icon Source (or similar, curently surfing on Linux)?

[diamondsandperls]

On the icon I was having trouble display a full desktop and perltray all you have to do with perltray is compile with a 48x48 or 32x32 icon with a 16x16 and the icon will display fine on desktop and systray i just used a matching icon for both which makes the most sense. Thanks for the SetTimer recommendation this got me over that hurdle this project is done now on to the next one.

happy coding!!

:)